home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8406.arc / TEST3.PRG < prev    next >
Text File  |  1986-09-14  |  256b  |  13 lines
  1. *********************
  2. * Program TEST3.PRG *
  3. *********************
  4. ERASE
  5. @ 5,20 SAY "Now, here's TEST3 . . ."
  6. STORE 1 TO N3
  7. DO WHILE N3<50
  8. STORE N3+1 TO N3
  9. ENDDO
  10. DO TEST4
  11. RETURN
  12.  
  13.